GETSUBSTR Funktion für LibreOffice Calc

GETSUBSTR() Beschreibung

Die Funktion GETSUBSTR() dient zum Auswählen eines Teils des Textes anhand des angegebenen Trennzeichens.

Der Funktionscode GETSUBSTR teilt den Text anhand des angegebenen Trennzeichens in ein Array auf und gibt das Element des angegebenen Arrays entsprechend der angegebenen Seriennummer zurück.

StarBASIC Code für GETSUBSTR

Unten finden Sie den Makrocode zum Erstellen einer benutzerdefinierten Funktion GETSUBSTR, die den Text in Teile aufteilen und jedes Element davon im LibreOffice-Programm Calc abrufen kann.

Um eine neue Funktion hinzuzufügen, öffnen Sie das Menü Tools - Macros - Edit Macros..., wählen Sie Module1 aus und kopieren Sie den folgenden Text in das Modul:

Function GETSUBSTR(Txt, Delimiter, n) As String  
   Dim txtArray As Variant  
     
     If Txt = "" Then Exit Function
     
      txtArray = Split(Txt, Delimiter) 
      maxExt = UBound(txtArray)
      
      If n >= 0 Then 
        normExt = n - 1
      Else      
        normExt = maxExt + n + 1
      EndIf      
       
      extToFind = Max(Min(maxExt, normExt), 0)
      
      GETSUBSTR = txtArray(extToFind)
     
End Function

Schließen Sie dann Macro Editor, kehren Sie zu LibreOffice Calc zurück und verwenden Sie die neue Funktion in einer beliebigen Zelle.

Verwendung der Erweiterung

Sie können die Funktion auch nutzen GETSUBSTR() durch die Installation der kostenlosen Erweiterung YouLibreCalc.oxt oder die Vollversion YLC_Utilities.oxt .

Danach steht diese Funktion in allen Dateien zur Verfügung, die in LibreOffice Calc geöffnet werden.